home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / PATHS.DEF < prev    next >
Text File  |  2000-09-26  |  612b  |  23 lines
  1. DEFINITION MODULE Paths;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5.  
  6. PROCEDURE Locate( fileName :ARRAY OF CHAR; envPath :ARRAY OF CHAR;
  7.                   VAR PathAndName :ARRAY OF CHAR; VAR found :BOOLEAN );
  8. (*
  9.     following the PATH specified in the envPath evironment string,
  10.     try to locate the file fileName.
  11.  
  12.     If the file is located, its complete path name is returned in
  13.     PathAndName.
  14.  
  15.     Example:
  16.  
  17.         Locate( "M2ED.CFG", "PATH", pathName, found );
  18.         IF found THEN
  19.             Lookup( f, pathName );
  20.             ...
  21. *)
  22.  
  23. END Paths.